dygraph(a3, main = "ID= 114N04857 (58 Crashes in 2015), PSL=65 mph, AADT=31,000 vpd") %>%
dyRangeSelector()
dygraph(a4, main = "Segment= 114P04158 (51 Crashes in 2015), PSL=60 mph, AADT=118,000 vpd") %>%
dyRangeSelector()
dygraph(a5, main = "Segment= 114N05434 (41 Crashes in 2015), PSL=60 mph, AADT=26,500 vpd") %>%
dyRangeSelector()
dygraph(a6, main = "Segment= 114N04103 (37 Crashes in 2015), PSL=70 mph, AADT=63,000 vpd") %>%
dyRangeSelector()
Note: AADT= Annual Average Daily Traffic, vpd= vehicle per day